Intro

Comparing assorted variables

# NOTE: This dataset is still private and so this data frame is generated
# from within the storage environment of the file in question.
dat <- read.csv(file = "../../quant_analysis/final_dataset.csv", 
                header = TRUE)
library(ggplot2, warn.conflicts = FALSE)
library(reshape2, warn.conflicts = FALSE)

Audiences

ggplot(dat, aes(x = easy_colleagues, y = imp_colleagues)) + 
  geom_jitter(aes(colour = knol_colleagues), alpha = 0.6) + 
  geom_count() + 
  geom_smooth(method = "lm") + 
  geom_rug(position = "jitter")

ggplot(dat, aes(x = easy_students, y = imp_students)) + 
  geom_jitter(aes(colour = knol_students, size = knol_students), alpha = 0.6) + 
  geom_smooth(method = "lm") + 
  geom_rug(position = "jitter")

Media

ggplot(dat, aes(x = easy_scijournos, y = imp_scijournos)) + 
  geom_jitter(aes(colour = knol_scijournos, size = knol_scijournos), alpha = 0.6) + 
  geom_smooth(method = "lm") + 
  geom_rug(position = "jitter")

ggplot(dat, aes(x = easy_scijournos, y = easy_genjournos)) + 
  geom_jitter(aes(colour = previous_participation), alpha = 0.6) + 
  geom_count() + 
  geom_smooth() + 
  geom_rug(position = "jitter")

Students

ggplot(dat, aes(x = imp_univ, y = imp_students)) + 
  geom_jitter(aes(colour = previous_participation), alpha = 0.6) + 
  geom_count() + 
  geom_smooth() + 
  geom_rug(position = "jitter")

ggplot(dat, aes(x = easy_univ, y = easy_students)) + 
  geom_jitter(aes(colour = previous_participation), alpha = 0.6) + 
  geom_count() + 
  geom_smooth() + 
  geom_rug(position = "jitter")

ggplot(dat, aes(x = knol_univ, y = knol_students)) + 
  geom_jitter(aes(colour = previous_participation), alpha = 0.6) + 
  geom_count() + 
  geom_smooth() + 
  geom_rug(position = "jitter")

Other audiences

ggplot(dat, aes(x = knol_NSP, y = imp_NSP)) + 
  geom_jitter(aes(colour = easy_NSP >= 3, size = easy_NSP), alpha = 0.6) + 
  geom_smooth(method = "lm") + 
  geom_rug(position = "jitter")

att_NSP <- melt(as.matrix(
  dat[c('imp_NSP', 'knol_NSP', 'easy_NSP')]
  ))
ggplot(att_NSP, aes(x=value, fill=Var2)) + 
  geom_bar(stat='count', color="white")

ggplot(dat, aes(x = knol_govt, y = imp_govt)) + 
  geom_jitter(aes(colour = easy_govt >= 3, size = easy_govt), alpha = 0.6) + 
  geom_smooth(method = "lm") + 
  geom_rug(position = "jitter")

att_govt <- melt(as.matrix(
  dat[c('imp_govt', 'knol_govt', 'easy_govt')]
  ))
ggplot(att_govt, aes(x=value, fill=Var2)) + 
  geom_bar(stat='count', color="white")

ggplot(dat, aes(x = knol_industry, y = imp_industry)) + 
  geom_jitter(aes(colour = easy_industry >= 3, size = easy_industry), alpha = 0.6) + 
  geom_smooth(method = "lm") + 
  geom_rug(position = "jitter")

att_industry <- melt(as.matrix(
  dat[c('imp_industry', 'knol_industry', 'easy_industry')]
  ))
ggplot(att_industry, aes(x=value, fill=Var2)) + 
  geom_bar(stat='count', color="white")

Benefits

ggplot(dat, aes(x = job_satisfaction, y = feeling_enjoyment)) + 
  geom_jitter(aes(colour = previous_participation), alpha = 0.6) + 
  geom_count() + 
  geom_smooth() + 
  geom_rug(position = "jitter")

ggplot(dat, aes(x = attracts_funding, y = advances_career)) + 
  geom_jitter(aes(colour = previous_participation), alpha = 0.6) + 
  geom_count() + 
  geom_smooth() + 
  geom_rug(position = "jitter")

Attitudes

ggplot(dat, aes(x = duty_outreach, y = no_appreciation_science)) + 
  geom_jitter(aes(colour = previous_participation), alpha = 0.6) + 
  geom_count() + 
  geom_smooth() + 
  geom_rug(position = "jitter")

ggplot(dat, aes(x = people_understand_scientists, y = no_appreciation_science)) + 
  geom_jitter(aes(colour = previous_participation), alpha = 0.6) + 
  geom_count() + 
  geom_smooth() + 
  geom_rug(position = "jitter")

ggplot(dat, aes(x = involvement_easy, y = research_complex)) + 
  geom_jitter(aes(colour = previous_participation), alpha = 0.6) + 
  geom_count() + 
  geom_smooth() + 
  geom_rug(position = "jitter")

ggplot(dat, aes(x = simplify, y = research_complex)) + 
  geom_jitter(aes(colour = previous_participation), alpha = 0.6) + 
  geom_count() + 
  geom_smooth() + 
  geom_rug(position = "jitter")

LS0tCnRpdGxlOiAiU2NhdHRlciBwbG90cyEiCm91dHB1dDogCiAgaHRtbF9ub3RlYm9vazogCiAgICBjb2RlX2ZvbGRpbmc6IGhpZGUKICAgIGZpZ19jYXB0aW9uOiB5ZXMKICAgIGhpZ2hsaWdodDogdGFuZ28KICAgIHRoZW1lOiB1bml0ZWQKICAgIHRvYzogeWVzCi0tLQoKIyMgSW50cm8KCkNvbXBhcmluZyBhc3NvcnRlZCB2YXJpYWJsZXMKCmBgYHtyfQojIE5PVEU6IFRoaXMgZGF0YXNldCBpcyBzdGlsbCBwcml2YXRlIGFuZCBzbyB0aGlzIGRhdGEgZnJhbWUgaXMgZ2VuZXJhdGVkCiMgZnJvbSB3aXRoaW4gdGhlIHN0b3JhZ2UgZW52aXJvbm1lbnQgb2YgdGhlIGZpbGUgaW4gcXVlc3Rpb24uCmRhdCA8LSByZWFkLmNzdihmaWxlID0gIi4uLy4uL3F1YW50X2FuYWx5c2lzL2ZpbmFsX2RhdGFzZXQuY3N2IiwgCiAgICAgICAgICAgICAgICBoZWFkZXIgPSBUUlVFKQoKbGlicmFyeShnZ3Bsb3QyLCB3YXJuLmNvbmZsaWN0cyA9IEZBTFNFKQpsaWJyYXJ5KHJlc2hhcGUyLCB3YXJuLmNvbmZsaWN0cyA9IEZBTFNFKQpgYGAKCiMjIEF1ZGllbmNlcwoKYGBge3J9CmdncGxvdChkYXQsIGFlcyh4ID0gZWFzeV9jb2xsZWFndWVzLCB5ID0gaW1wX2NvbGxlYWd1ZXMpKSArIAogIGdlb21faml0dGVyKGFlcyhjb2xvdXIgPSBrbm9sX2NvbGxlYWd1ZXMpLCBhbHBoYSA9IDAuNikgKyAKICBnZW9tX2NvdW50KCkgKyAKICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iKSArIAogIGdlb21fcnVnKHBvc2l0aW9uID0gImppdHRlciIpCmBgYAoKYGBge3J9CmdncGxvdChkYXQsIGFlcyh4ID0gZWFzeV9zdHVkZW50cywgeSA9IGltcF9zdHVkZW50cykpICsgCiAgZ2VvbV9qaXR0ZXIoYWVzKGNvbG91ciA9IGtub2xfc3R1ZGVudHMsIHNpemUgPSBrbm9sX3N0dWRlbnRzKSwgYWxwaGEgPSAwLjYpICsgCiAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIikgKyAKICBnZW9tX3J1Zyhwb3NpdGlvbiA9ICJqaXR0ZXIiKQpgYGAKCiMjIyBNZWRpYQoKYGBge3J9CmdncGxvdChkYXQsIGFlcyh4ID0gZWFzeV9zY2lqb3Vybm9zLCB5ID0gaW1wX3NjaWpvdXJub3MpKSArIAogIGdlb21faml0dGVyKGFlcyhjb2xvdXIgPSBrbm9sX3NjaWpvdXJub3MsIHNpemUgPSBrbm9sX3NjaWpvdXJub3MpLCBhbHBoYSA9IDAuNikgKyAKICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iKSArIAogIGdlb21fcnVnKHBvc2l0aW9uID0gImppdHRlciIpCmBgYAoKYGBge3J9CmdncGxvdChkYXQsIGFlcyh4ID0gZWFzeV9zY2lqb3Vybm9zLCB5ID0gZWFzeV9nZW5qb3Vybm9zKSkgKyAKICBnZW9tX2ppdHRlcihhZXMoY29sb3VyID0gcHJldmlvdXNfcGFydGljaXBhdGlvbiksIGFscGhhID0gMC42KSArIAogIGdlb21fY291bnQoKSArIAogIGdlb21fc21vb3RoKCkgKyAKICBnZW9tX3J1Zyhwb3NpdGlvbiA9ICJqaXR0ZXIiKQpgYGAKCiMjIyBTdHVkZW50cwoKYGBge3J9CmdncGxvdChkYXQsIGFlcyh4ID0gaW1wX3VuaXYsIHkgPSBpbXBfc3R1ZGVudHMpKSArIAogIGdlb21faml0dGVyKGFlcyhjb2xvdXIgPSBwcmV2aW91c19wYXJ0aWNpcGF0aW9uKSwgYWxwaGEgPSAwLjYpICsgCiAgZ2VvbV9jb3VudCgpICsgCiAgZ2VvbV9zbW9vdGgoKSArIAogIGdlb21fcnVnKHBvc2l0aW9uID0gImppdHRlciIpCmBgYAoKYGBge3J9CmdncGxvdChkYXQsIGFlcyh4ID0gZWFzeV91bml2LCB5ID0gZWFzeV9zdHVkZW50cykpICsgCiAgZ2VvbV9qaXR0ZXIoYWVzKGNvbG91ciA9IHByZXZpb3VzX3BhcnRpY2lwYXRpb24pLCBhbHBoYSA9IDAuNikgKyAKICBnZW9tX2NvdW50KCkgKyAKICBnZW9tX3Ntb290aCgpICsgCiAgZ2VvbV9ydWcocG9zaXRpb24gPSAiaml0dGVyIikKYGBgCgpgYGB7cn0KZ2dwbG90KGRhdCwgYWVzKHggPSBrbm9sX3VuaXYsIHkgPSBrbm9sX3N0dWRlbnRzKSkgKyAKICBnZW9tX2ppdHRlcihhZXMoY29sb3VyID0gcHJldmlvdXNfcGFydGljaXBhdGlvbiksIGFscGhhID0gMC42KSArIAogIGdlb21fY291bnQoKSArIAogIGdlb21fc21vb3RoKCkgKyAKICBnZW9tX3J1Zyhwb3NpdGlvbiA9ICJqaXR0ZXIiKQpgYGAKCiMjIyBPdGhlciBhdWRpZW5jZXMKCmBgYHtyfQpnZ3Bsb3QoZGF0LCBhZXMoeCA9IGtub2xfTlNQLCB5ID0gaW1wX05TUCkpICsgCiAgZ2VvbV9qaXR0ZXIoYWVzKGNvbG91ciA9IGVhc3lfTlNQID49IDMsIHNpemUgPSBlYXN5X05TUCksIGFscGhhID0gMC42KSArIAogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIpICsgCiAgZ2VvbV9ydWcocG9zaXRpb24gPSAiaml0dGVyIikKYGBgCgpgYGB7cn0KYXR0X05TUCA8LSBtZWx0KGFzLm1hdHJpeCgKICBkYXRbYygnaW1wX05TUCcsICdrbm9sX05TUCcsICdlYXN5X05TUCcpXQogICkpCgpnZ3Bsb3QoYXR0X05TUCwgYWVzKHg9dmFsdWUsIGZpbGw9VmFyMikpICsgCiAgZ2VvbV9iYXIoc3RhdD0nY291bnQnLCBjb2xvcj0id2hpdGUiKQoKYGBgCgpgYGB7cn0KZ2dwbG90KGRhdCwgYWVzKHggPSBrbm9sX2dvdnQsIHkgPSBpbXBfZ292dCkpICsgCiAgZ2VvbV9qaXR0ZXIoYWVzKGNvbG91ciA9IGVhc3lfZ292dCA+PSAzLCBzaXplID0gZWFzeV9nb3Z0KSwgYWxwaGEgPSAwLjYpICsgCiAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIikgKyAKICBnZW9tX3J1Zyhwb3NpdGlvbiA9ICJqaXR0ZXIiKQpgYGAKCmBgYHtyfQphdHRfZ292dCA8LSBtZWx0KGFzLm1hdHJpeCgKICBkYXRbYygnaW1wX2dvdnQnLCAna25vbF9nb3Z0JywgJ2Vhc3lfZ292dCcpXQogICkpCgpnZ3Bsb3QoYXR0X2dvdnQsIGFlcyh4PXZhbHVlLCBmaWxsPVZhcjIpKSArIAogIGdlb21fYmFyKHN0YXQ9J2NvdW50JywgY29sb3I9IndoaXRlIikKCmBgYAoKYGBge3J9CmdncGxvdChkYXQsIGFlcyh4ID0ga25vbF9pbmR1c3RyeSwgeSA9IGltcF9pbmR1c3RyeSkpICsgCiAgZ2VvbV9qaXR0ZXIoYWVzKGNvbG91ciA9IGVhc3lfaW5kdXN0cnkgPj0gMywgc2l6ZSA9IGVhc3lfaW5kdXN0cnkpLCBhbHBoYSA9IDAuNikgKyAKICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iKSArIAogIGdlb21fcnVnKHBvc2l0aW9uID0gImppdHRlciIpCmBgYAoKYGBge3J9CmF0dF9pbmR1c3RyeSA8LSBtZWx0KGFzLm1hdHJpeCgKICBkYXRbYygnaW1wX2luZHVzdHJ5JywgJ2tub2xfaW5kdXN0cnknLCAnZWFzeV9pbmR1c3RyeScpXQogICkpCgpnZ3Bsb3QoYXR0X2luZHVzdHJ5LCBhZXMoeD12YWx1ZSwgZmlsbD1WYXIyKSkgKyAKICBnZW9tX2JhcihzdGF0PSdjb3VudCcsIGNvbG9yPSJ3aGl0ZSIpCgpgYGAKCiMjIEJlbmVmaXRzCgpgYGB7cn0KZ2dwbG90KGRhdCwgYWVzKHggPSBqb2Jfc2F0aXNmYWN0aW9uLCB5ID0gZmVlbGluZ19lbmpveW1lbnQpKSArIAogIGdlb21faml0dGVyKGFlcyhjb2xvdXIgPSBwcmV2aW91c19wYXJ0aWNpcGF0aW9uKSwgYWxwaGEgPSAwLjYpICsgCiAgZ2VvbV9jb3VudCgpICsgCiAgZ2VvbV9zbW9vdGgoKSArIAogIGdlb21fcnVnKHBvc2l0aW9uID0gImppdHRlciIpCmBgYAoKYGBge3J9CmdncGxvdChkYXQsIGFlcyh4ID0gYXR0cmFjdHNfZnVuZGluZywgeSA9IGFkdmFuY2VzX2NhcmVlcikpICsgCiAgZ2VvbV9qaXR0ZXIoYWVzKGNvbG91ciA9IHByZXZpb3VzX3BhcnRpY2lwYXRpb24pLCBhbHBoYSA9IDAuNikgKyAKICBnZW9tX2NvdW50KCkgKyAKICBnZW9tX3Ntb290aCgpICsgCiAgZ2VvbV9ydWcocG9zaXRpb24gPSAiaml0dGVyIikKYGBgCgojIyBBdHRpdHVkZXMKCmBgYHtyfQpnZ3Bsb3QoZGF0LCBhZXMoeCA9IGR1dHlfb3V0cmVhY2gsIHkgPSBub19hcHByZWNpYXRpb25fc2NpZW5jZSkpICsgCiAgZ2VvbV9qaXR0ZXIoYWVzKGNvbG91ciA9IHByZXZpb3VzX3BhcnRpY2lwYXRpb24pLCBhbHBoYSA9IDAuNikgKyAKICBnZW9tX2NvdW50KCkgKyAKICBnZW9tX3Ntb290aCgpICsgCiAgZ2VvbV9ydWcocG9zaXRpb24gPSAiaml0dGVyIikKYGBgCgpgYGB7cn0KZ2dwbG90KGRhdCwgYWVzKHggPSBwZW9wbGVfdW5kZXJzdGFuZF9zY2llbnRpc3RzLCB5ID0gbm9fYXBwcmVjaWF0aW9uX3NjaWVuY2UpKSArIAogIGdlb21faml0dGVyKGFlcyhjb2xvdXIgPSBwcmV2aW91c19wYXJ0aWNpcGF0aW9uKSwgYWxwaGEgPSAwLjYpICsgCiAgZ2VvbV9jb3VudCgpICsgCiAgZ2VvbV9zbW9vdGgoKSArIAogIGdlb21fcnVnKHBvc2l0aW9uID0gImppdHRlciIpCmBgYAoKYGBge3J9CmdncGxvdChkYXQsIGFlcyh4ID0gaW52b2x2ZW1lbnRfZWFzeSwgeSA9IHJlc2VhcmNoX2NvbXBsZXgpKSArIAogIGdlb21faml0dGVyKGFlcyhjb2xvdXIgPSBwcmV2aW91c19wYXJ0aWNpcGF0aW9uKSwgYWxwaGEgPSAwLjYpICsgCiAgZ2VvbV9jb3VudCgpICsgCiAgZ2VvbV9zbW9vdGgoKSArIAogIGdlb21fcnVnKHBvc2l0aW9uID0gImppdHRlciIpCmBgYAoKYGBge3J9CmdncGxvdChkYXQsIGFlcyh4ID0gc2ltcGxpZnksIHkgPSByZXNlYXJjaF9jb21wbGV4KSkgKyAKICBnZW9tX2ppdHRlcihhZXMoY29sb3VyID0gcHJldmlvdXNfcGFydGljaXBhdGlvbiksIGFscGhhID0gMC42KSArIAogIGdlb21fY291bnQoKSArIAogIGdlb21fc21vb3RoKCkgKyAKICBnZW9tX3J1Zyhwb3NpdGlvbiA9ICJqaXR0ZXIiKQpgYGAK